www.gusucode.com > Delphi 列举进程及进程模块信息实例 > Delphi 监测磁盘容量及设置光驱自动运行\0030301.txt

    1：让应用程序自身删除 
    在应用程序刚要退出之前创建一个Delself.bat文件，让它先删除应用程序，然后删除自身。在Form的OnClose事件中加入下列代码： 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  F : TextFile ;
begin
  AssignFile(F, 'delself.bat');
  Rewrite(F);{F为TextFile类型}
  WriteLn(F,'del '+ExtractFileName(Application.ExeName));
  WriteLn(F,'del %0');
  CloseFile(F);
  WinExec('delself.bat',SW_HIDE);
end;